# paste all cells in a vector

paste_vec <- function(vec = c(), sep = " "){
  out <- ""
  if(length(vec) <= 1){
    return(vec)
  }else{
    out <- vec[1]
    for(i in 2:length(vec)){
      out <- paste(out, vec[i], sep = sep)
    }
    return(out)
  }
}

#### TEST AREA ####
# 
# paste(c("a", "b", "c", "d"), sep = "--")
# paste_vec(c("a", "b", "c", "d"), sep = "--")